home *** CD-ROM | disk | FTP | other *** search
- global oneFileCopy, gSavePath, gSysOS, gHardDrive, gSysPath, gSourceDrive, gSystemOS, gLF, gfd, gDefaultSourcePath, gImages, gMegs, gmacSavePath, gWinSavePath, gDefaultSavePath
-
- on enterFrame
- gImages = 0
- gMegs = 0
- gSourceDrive = the moviePath
- oneFileCopy = new(xtra("ProgressCopy"), 1, 0, 0)
- gSystemOS = baVersion("os")
- if char 1 to 9 of the platform = "Macintosh" then
- gfd = ":"
- gLF = RETURN
- else
- gfd = "\"
- gLF = RETURN & numToChar(10)
- end if
- gSysPath = getOSDirectory()
- if gfd = ":" then
- the itemDelimiter = ":"
- else
- the itemDelimiter = "\"
- end if
- gHardDrive = item 1 of gSysPath
- the itemDelimiter = ","
- save = the itemDelimiter
- if gfd = ":" then
- gmacSavePath = baSysFolder("desktop")
- gDefaultSavePath = gmacSavePath & "How To Lose A Guy Images"
- gDefaultSourcePath = gSourceDrive & "Images"
- else
- if gSystemOS = "Win95" then
- gWinSavePath = gHardDrive & "\Windows\Desktop\"
- gDefaultSavePath = gWinSavePath & "How To Lose A Guy Images"
- gDefaultSourcePath = gSourceDrive & "Images"
- else
- gWinSavePath = baSysFolder("common desktop")
- gDefaultSavePath = gWinSavePath & "How To Lose A Guy Images"
- gDefaultSourcePath = gSourceDrive & "Images"
- end if
- end if
- end
-